BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / 3270XCMD / TNClose.c < prev next >
MacBinary | 1990-03-19 | 2.0 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Mon Mar 19 14:37:03 1990, modified Mon Mar 19 14:37:03 1990, creator 'MPS ', type ASCII, 1481 bytes "TNClose.c" , at 0x649 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 54 4e 43 6c 6f 73 | 65 2e 63 00 00 00 00 00 |..TNClos|e.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 c9 00 | 00 01 7e a2 2a e5 5f a2 |........|..~.*._.|
|00000060| 2a e5 5f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |*._.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fd 4d 00 00 |........|.....M..|
|00000080| 2f 2a 20 54 4e 43 6c 6f | 73 65 2e 63 20 2d 2d 20 |/* TNClo|se.c -- |
|00000090| 58 43 4d 44 20 74 6f 20 | 63 6c 6f 73 65 20 74 68 |XCMD to |close th|
|000000a0| 65 20 54 4e 33 32 37 30 | 20 64 72 69 76 65 72 20 |e TN3270| driver |
|000000b0| 0d 09 63 6f 70 79 72 69 | 67 68 74 20 31 39 38 39 |..copyri|ght 1989|
|000000c0| 20 43 6f 72 6e 65 6c 6c | 20 55 6e 69 76 65 72 73 | Cornell| Univers|
|000000d0| 69 74 79 20 0d 2a 2f 0d | 0d 0d 23 69 6e 63 6c 75 |ity .*/.|..#inclu|
|000000e0| 64 65 20 3c 54 79 70 65 | 73 2e 68 3e 0d 23 69 6e |de <Type|s.h>.#in|
|000000f0| 63 6c 75 64 65 20 3c 4d | 65 6d 6f 72 79 2e 68 3e |clude <M|emory.h>|
|00000100| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 44 65 76 69 63 |.#includ|e <Devic|
|00000110| 65 73 2e 68 3e 0d 23 69 | 6e 63 6c 75 64 65 20 3c |es.h>.#i|nclude <|
|00000120| 48 79 70 65 72 58 43 6d | 64 2e 68 3e 0d 23 69 6e |HyperXCm|d.h>.#in|
|00000130| 63 6c 75 64 65 20 3c 45 | 72 72 6f 72 73 2e 68 3e |clude <E|rrors.h>|
|00000140| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 54 4e 64 72 |..#inclu|de "TNdr|
|00000150| 76 72 2e 68 22 0d 0d 0d | 70 61 73 63 61 6c 20 76 |vr.h"...|pascal v|
|00000160| 6f 69 64 20 64 65 62 75 | 67 67 65 72 28 29 09 65 |oid debu|gger().e|
|00000170| 78 74 65 72 6e 20 30 78 | 41 39 46 46 3b 20 20 20 |xtern 0x|A9FF;   |
|00000180| 0d 0d 0d 70 61 73 63 61 | 6c 20 76 6f 69 64 20 54 |...pasca|l void T|
|00000190| 4e 43 6c 6f 73 65 28 68 | 79 63 70 29 0d 58 43 6d |NClose(h|ycp).XCm|
|000001a0| 64 50 74 72 20 68 79 63 | 70 3b 0d 7b 0d 09 43 6e |dPtr hyc|p;.{..Cn|
|000001b0| 74 72 6c 50 61 72 61 6d | 20 64 72 76 70 62 3b 0d |trlParam| drvpb;.|
|000001c0| 09 6c 6f 6e 67 20 2a 20 | 61 72 67 73 3b 0d 09 53 |.long * |args;..S|
|000001d0| 74 72 32 35 35 20 70 73 | 74 72 3b 0d 09 0d 09 69 |tr255 ps|tr;....i|
|000001e0| 66 20 28 68 79 63 70 2d | 3e 70 61 72 61 6d 43 6f |f (hycp-|>paramCo|
|000001f0| 75 6e 74 20 21 3d 20 31 | 29 20 7b 0d 09 09 73 65 |unt != 1|) {...se|
|00000200| 74 68 61 6e 64 28 26 68 | 79 63 70 2d 3e 72 65 74 |thand(&h|ycp->ret|
|00000210| 75 72 6e 56 61 6c 75 65 | 2c 20 22 54 4e 43 6c 6f |urnValue|, "TNClo|
|00000220| 73 65 20 54 4e 49 44 3a | 20 6e 65 65 64 20 31 20 |se TNID:| need 1 |
|00000230| 61 72 67 75 6d 65 6e 74 | 22 29 3b 0d 09 09 72 65 |argument|");...re|
|00000240| 74 75 72 6e 3b 0d 09 7d | 0d 09 0d 09 48 4c 6f 63 |turn;..}|....HLoc|
|00000250| 6b 28 28 48 61 6e 64 6c | 65 29 20 68 79 63 70 2d |k((Handl|e) hycp-|
|00000260| 3e 70 61 72 61 6d 73 5b | 30 5d 29 3b 0d 09 0d 09 |>params[|0]);....|
|00000270| 5a 65 72 6f 54 6f 50 61 | 73 28 68 79 63 70 2c 20 |ZeroToPa|s(hycp, |
|00000280| 2a 68 79 63 70 2d 3e 70 | 61 72 61 6d 73 5b 30 5d |*hycp->p|arams[0]|
|00000290| 2c 20 28 53 74 72 69 6e | 67 50 74 72 29 20 26 70 |, (Strin|gPtr) &p|
|000002a0| 73 74 72 5b 30 5d 29 3b | 0d 09 64 72 76 70 62 2e |str[0]);|..drvpb.|
|000002b0| 69 6f 43 52 65 66 4e 75 | 6d 20 3d 20 28 73 68 6f |ioCRefNu|m = (sho|
|000002c0| 72 74 29 20 53 74 72 54 | 6f 4e 75 6d 28 68 79 63 |rt) StrT|oNum(hyc|
|000002d0| 70 2c 20 28 53 74 72 33 | 31 20 2a 29 20 26 70 73 |p, (Str3|1 *) &ps|
|000002e0| 74 72 5b 30 5d 29 3b 0d | 09 64 72 76 70 62 2e 63 |tr[0]);.|.drvpb.c|
|000002f0| 73 43 6f 64 65 20 3d 20 | 48 54 4e 5f 43 4c 4f 53 |sCode = |HTN_CLOS|
|00000300| 45 3b 0d 09 50 42 43 6f | 6e 74 72 6f 6c 28 28 50 |E;..PBCo|ntrol((P|
|00000310| 61 72 6d 42 6c 6b 50 74 | 72 29 20 26 64 72 76 70 |armBlkPt|r) &drvp|
|00000320| 62 2c 20 28 42 6f 6f 6c | 65 61 6e 29 20 30 29 3b |b, (Bool|ean) 0);|
|00000330| 0d 0d 09 69 66 20 28 64 | 72 76 70 62 2e 69 6f 52 |...if (d|rvpb.ioR|
|00000340| 65 73 75 6c 74 29 20 7b | 0d 09 09 2f 2a 20 63 6c |esult) {|.../* cl|
|00000350| 6f 73 65 20 63 61 6c 6c | 20 66 61 69 6c 65 64 20 |ose call| failed |
|00000360| 2a 2f 0d 09 09 73 77 69 | 74 63 68 20 28 64 72 76 |*/...swi|tch (drv|
|00000370| 70 62 2e 69 6f 52 65 73 | 75 6c 74 29 20 7b 0d 09 |pb.ioRes|ult) {..|
|00000380| 09 09 63 61 73 65 20 48 | 54 4e 52 5f 4e 4f 54 4e |..case H|TNR_NOTN|
|00000390| 3a 20 7b 0d 09 09 09 09 | 73 65 74 68 61 6e 64 28 |: {.....|sethand(|
|000003a0| 26 68 79 63 70 2d 3e 72 | 65 74 75 72 6e 56 61 6c |&hycp->r|eturnVal|
|000003b0| 75 65 2c 20 22 54 4e 20 | 69 73 20 6e 6f 74 20 72 |ue, "TN |is not r|
|000003c0| 75 6e 6e 69 6e 67 22 29 | 3b 0d 09 09 09 09 62 72 |unning")|;.....br|
|000003d0| 65 61 6b 3b 0d 09 09 09 | 7d 0d 09 09 09 63 61 73 |eak;....|}....cas|
|000003e0| 65 20 48 54 4e 52 5f 41 | 43 54 49 56 45 3a 20 7b |e HTNR_A|CTIVE: {|
|000003f0| 0d 09 09 09 09 73 65 74 | 68 61 6e 64 28 26 68 79 |.....set|hand(&hy|
|00000400| 63 70 2d 3e 72 65 74 75 | 72 6e 56 61 6c 75 65 2c |cp->retu|rnValue,|
|00000410| 20 22 54 4e 20 6e 6f 74 | 20 6f 70 65 6e 65 64 22 | "TN not| opened"|
|00000420| 29 3b 0d 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |);.....b|reak;...|
|00000430| 09 7d 0d 09 09 09 63 61 | 73 65 20 48 54 4e 52 5f |.}....ca|se HTNR_|
|00000440| 4f 50 45 4e 3a 20 7b 0d | 09 09 09 09 73 65 74 68 |OPEN: {.|....seth|
|00000450| 61 6e 64 28 26 68 79 63 | 70 2d 3e 72 65 74 75 72 |and(&hyc|p->retur|
|00000460| 6e 56 61 6c 75 65 2c 20 | 22 54 4e 20 68 61 73 20 |nValue, |"TN has |
|00000470| 6e 6f 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 22 29 3b |no conne|ction");|
|00000480| 0d 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 7d |.....bre|ak;....}|
|00000490| 0d 09 09 09 63 61 73 65 | 20 62 61 64 55 6e 69 74 |....case| badUnit|
|000004a0| 45 72 72 3a 20 7b 0d 09 | 09 09 09 73 65 74 68 61 |Err: {..|...setha|
|000004b0| 6e 64 28 26 68 79 63 70 | 2d 3e 72 65 74 75 72 6e |nd(&hycp|->return|
|000004c0| 56 61 6c 75 65 2c 20 22 | 54 4e 49 44 20 69 73 20 |Value, "|TNID is |
|000004d0| 69 6e 63 6f 72 72 65 63 | 74 22 29 3b 0d 09 09 09 |incorrec|t");....|
|000004e0| 09 62 72 65 61 6b 3b 0d | 09 09 09 7d 0d 09 09 09 |.break;.|...}....|
|000004f0| 64 65 66 61 75 6c 74 3a | 20 7b 0d 09 09 09 09 73 |default:| {.....s|
|00000500| 65 74 68 61 6e 64 28 26 | 68 79 63 70 2d 3e 72 65 |ethand(&|hycp->re|
|00000510| 74 75 72 6e 56 61 6c 75 | 65 2c 20 22 55 6e 6b 6e |turnValu|e, "Unkn|
|00000520| 6f 77 6e 20 65 72 72 6f | 72 22 29 3b 0d 09 09 09 |own erro|r");....|
|00000530| 09 62 72 65 61 6b 3b 0d | 09 09 09 7d 0d 09 09 7d |.break;.|...}...}|
|00000540| 0d 09 7d 0d 09 48 55 6e | 6c 6f 63 6b 28 28 48 61 |..}..HUn|lock((Ha|
|00000550| 6e 64 6c 65 29 20 68 79 | 63 70 2d 3e 70 61 72 61 |ndle) hy|cp->para|
|00000560| 6d 73 5b 30 5d 29 3b 0d | 09 72 65 74 75 72 6e 3b |ms[0]);.|.return;|
|00000570| 0d 7d 0d 0d 0d 73 65 74 | 68 61 6e 64 28 74 68 61 |.}...set|hand(tha|
|00000580| 6e 64 2c 20 73 74 72 29 | 0d 48 61 6e 64 6c 65 20 |nd, str)|.Handle |
|00000590| 2a 20 74 68 61 6e 64 3b | 0d 63 68 61 72 20 2a 20 |* thand;|.char * |
|000005a0| 73 74 72 3b 0d 7b 0d 09 | 69 66 20 28 2a 74 68 61 |str;.{..|if (*tha|
|000005b0| 6e 64 20 3d 3d 20 4e 55 | 4c 4c 29 20 7b 0d 09 09 |nd == NU|LL) {...|
|000005c0| 2a 74 68 61 6e 64 20 3d | 20 4e 65 77 48 61 6e 64 |*thand =| NewHand|
|000005d0| 6c 65 28 28 53 69 7a 65 | 29 20 30 29 3b 0d 09 7d |le((Size|) 0);..}|
|000005e0| 0d 09 53 65 74 48 61 6e | 64 6c 65 53 69 7a 65 28 |..SetHan|dleSize(|
|000005f0| 2a 74 68 61 6e 64 2c 20 | 28 6c 6f 6e 67 29 20 28 |*thand, |(long) (|
|00000600| 73 74 72 6c 65 6e 28 73 | 74 72 29 20 2b 20 31 29 |strlen(s|tr) + 1)|
|00000610| 29 3b 0d 09 73 74 72 63 | 70 79 28 2a 2a 74 68 61 |);..strc|py(**tha|
|00000620| 6e 64 2c 20 73 74 72 29 | 3b 0d 7d 0d 0d 0d 0d 0d |nd, str)|;.}.....|
|00000630| 23 69 6e 63 6c 75 64 65 | 20 3c 58 43 6d 64 47 6c |#include| <XCmdGl|
|00000640| 75 65 2e 69 6e 63 2e 63 | 3e 00 00 00 00 00 00 00 |ue.inc.c|>.......|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000690| 00 00 07 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 09 54 4e 43 6c 6f 73 65 | 2e 63 02 00 00 00 50 61 |.TNClose|.c....Pa|
|000006c0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|000006d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a9 8d 3a 88 00 00 | 00 00 00 00 01 7e 00 00 |....:...|.....~..|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 02 96 25 00 00 00 |........|....%...|
|00000710| 07 3c 0a 41 70 70 6c 65 | 53 68 61 72 65 00 00 00 |.<.Apple|Share...|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 02 97 25 00 | 00 00 07 3c 0e 43 6c 69 |......%.|...<.Cli|
|00000740| 70 62 6f 61 72 64 20 46 | 69 6c 65 00 00 00 00 00 |pboard F|ile.....|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 1f |........|........|
|00000760| 25 00 00 00 07 3c 06 63 | 6f 72 76 75 73 00 00 00 |%....<.c|orvus...|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 fa 00 00 |...H..Mo|naco....|
|00000790| 00 00 04 1c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 06 | 00 04 00 29 00 02 01 85 |........|...)....|
|000007b0| 02 02 00 29 00 02 01 85 | 02 02 a2 2a 9f 0f 00 00 |...)....|...*....|
|000007c0| 01 7e 00 00 01 85 00 00 | 00 c2 01 00 00 00 01 00 |.~......|........|
|000007d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 33 e8 ac |...L...L|...2.3..|
|000007e0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000007f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 35 21 74 00 00 |........|...5!t..|
+--------+-------------------------+-------------------------+--------+--------+